﻿Public Class ClassArchive
    Public TitreFichier As String
    Public CheminFichier As String
    Public DateFichier As String
    Public zContenu As ClassCompString

    Public Sub New()
        TitreFichier = ""
        CheminFichier = ""
        DateFichier = ""
        zContenu = New ClassCompString
    End Sub

End Class
